home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 62 / 062.d81 / ls pol bs (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  11KB  |  384 lines
  1. 100 poke56576,peek(56576)and252
  2. 110 poke648,192:poke53272,8 : rem 168
  3. 120 :
  4. 900 print"[147]" : v=53248 : sl = 192
  5. 910 gs = 49152 : qa = 60416
  6. 915 :
  7. 920 pokev+21,.:pokev+23,.:pokev+27,.
  8. 930 pokev+28,.:pokev+29,.:pokev+16,.
  9. 945 :
  10. 950 forx=0to3:pokegs+1016+x,sl+x:pokegs+1020+x,sl+4:next
  11. 960 pokeqa+1016,sl+5:pokeqa+1017,sl+6
  12. 970 forx=0to5:pokeqa+1018+x,sl+7:next
  13. 975 :
  14. 1010 is=52736:tr=is+3:sc=tr+3:hi=sc+3:re=hi+3:mf=re+3
  15. 1012 :
  16. 1015 print"[147][154]       [204][207][193][196][211][212][193][210] proudly presents"
  17. 1020 x=rnd(-ti):print "[159]                ]       ]"
  18. 1030 print " ]___[      [   [169]       [169]            ["
  19. 1040 print " _[169] [223]_      _       _                _"
  20. 1050 print " _[ ]_ ]__[ _   _ [223]___[ _ ]__[ ]___[169] _"
  21. 1060 print " ____[169] _[169][223]_ _   _   _   _ _[169]   _[169][223]_  _"
  22. 1070 print " _     _  _ _   _   _   _ _    _  _  _"
  23. 1080 print " _     _[]_ _   _   _   _ _[   _[]_  _"
  24. 1090 print " _     [223]__[169] __[ _   _   _ [223]__[169] [223]___[ __["
  25. 1100 print "   [154][201]dea[159]    [223]_____[   ]____["
  26. 1110 print "  [154]& [199]ame[159]    _[169]  [223]_   _[169]      [154][193]daptation[159]"
  27. 1120 print " [154][195]reation[159]   _[  ][169]   _[      [154]& [208]rogram[159]"
  28. 1130 print "            _____    [223]____["
  29. 1140 print "[152] [197]. [202]enkins[159] _[169]  [223][       [223]_  [152] [203]. [199]rover[159]"
  30. 1150 print "       [160]    _[  ]_       ]_"
  31. 1160 print "           ]_____[169] # [223]____[169] #  [152] [211]. [210]esh"
  32. 1170 print "[152]          ([194]ureaucratic [211]ystem)"
  33. 1180 if su<>0 then print"":goto1710
  34. 1190 :
  35. 1200 print "              [208]lease wait..."
  36. 1230 dim b(60),xy(60),ps(4),sp(4),temp(4),dr(4),cf$(4),cn$(4),fl(4,4)
  37. 1240 dim f$(4,3),mq(4),cr(4),q$(4,45),a$(4,45),cf(4),rd(4,4),ay(3),za(45),ix(7)
  38. 1245 dim x(60),y(60),zz$(4),ac(4)
  39. 1246 forx=0to7:reada:ix(x)=a:next
  40. 1250 fort=1to60:read b(t):next : rem          init 'space' colors
  41. 1260 cf$(1)="":cf$(2)="":cf$(3)="":cf$(4)="[158]"
  42. 1270 cn$(1)="[210]ed":cn$(2)="[215]hite":cn$(3)="[194]lue":cn$(4)="[199]old"
  43. 1272 zz$(1)="red-":zz$(2)="white-":zz$(3)="blue-":zz$(4)="gold-"
  44. 1273 ac(1)=2:ac(2)=1:ac(3)=6:ac(4)=7
  45. 1275 :
  46. 1276 forx=0to3:pokev+39+x,ac(x+1):pokev+43+x,.:next
  47. 1280 fort=1to60:readx,y:xy(t)=gs+x+y*40:x(t)=x*8+21:y(t)=y*8+47:next
  48. 1285 :
  49. 1290 forc=1to4:fort=1to3:f$(c,t)=zz$(c)+right$(str$(t),1):next:next
  50. 1300 sn=54272:fort=0to24:poket+sn,.:next
  51. 1310 pokesn+1,46:pokesn+6,249:pokesn+15,20:pokesn+24,15
  52. 1315 pokesn+8,5:pokesn+12,14:pokesn+13,20
  53. 1320 :
  54. 1330 fort=1to4:x=rnd(-ti):forc=1to3
  55. 1340 x=int(rnd(1)*3)+1
  56. 1350 ifc>1thencn=.:forz=1toc-1:cn=cn+(rd(t,z)=x):next:ifcnthen1340
  57. 1360 rd(t,c)=x:next:next
  58. 1370 :
  59. 1380 rem               dice
  60. 1390 :
  61. 1400 d$(1)="___[157][157][157]_@_[157][157][157]___[145][145][157][157][157]"
  62. 1410 d$(2)="@__[157][157][157]___[157][157][157]__@[145][145][157][157][157]"
  63. 1420 d$(3)="@__[157][157][157]_@_[157][157][157]__@[145][145][157][157][157]"
  64. 1430 d$(4)="@_@[157][157][157]___[157][157][157]@_@[145][145][157][157][157]"
  65. 1440 d$(5)="@_@[157][157][157]_@_[157][157][157]@_@[145][145][157][157][157]"
  66. 1450 d$(6)="@_@[157][157][157]@_@[157][157][157]@_@[145][145][157][157][157]"
  67. 1460 cs$="06661[157][157][157][157][157]4[146]   5[157][157][157][157][157]4[146]   5[157][157][157][157][157]4[146]   5[157][157][157][157][157]27773[146][145][145][145][157][157][157][157]"
  68. 1470 :
  69. 1480 c$="a[146]\\\\\\\\\\b[146][157][157][157][157][157][157][157][157][157][157][157][157]"
  70. 1484 c$=c$+"^          ^[157][157][157][157][157][157][157][157][157][157][157][157]"
  71. 1485 c$=c$+"^[159] [208]ress a  ^[157][157][157][157][157][157][157][157][157][157][157][157]"
  72. 1486 c$=c$+"^[159]  key to  ^[157][157][157][157][157][157][157][157][157][157][157][157]"
  73. 1490 c$=c$+"^[159] continue ^[157][157][157][157][157][157][157][157][157][157][157][157]"
  74. 1495 c$=c$+"^          ^[157][157][157][157][157][157][157][157][157][157][157][157]"
  75. 1500 c$=c$+"c[146]\\\\\\\\\\d[146]"
  76. 1510 :
  77. 1520 cb$="            [157][157][157][157][157][157][157][157][157][157][157][157]            [157][157][157][157][157][157][157][157][157][157][157][157]"
  78. 1530 cb$=cb$+"            [157][157][157][157][157][157][157][157][157][157][157][157]            [157][157][157][157][157][157][157][157][157][157][157][157]"
  79. 1540 cb$=cb$+"            [157][157][157][157][157][157][157][157][157][157][157][157]            [157][157][157][157][157][157][157][157][157][157][157][157]"
  80. 1545 cb$=cb$+"            [157][157][157][157][157][157][157][157][157][157][157][157]            [157][157][157][157][157][157][157][157][157][157][157][157]"
  81. 1550 s$="[211]orry, [159]you[157][157][157][157][157][157][157][157][157][157][157]have been[157][157][157][157][157][157][157][157][157]"
  82. 1560 s$=s$+"caught in[157][157][157][157][157][157][157][157][157]the [158][194].[211].[157][157][157][157][157][157][157][157][208]ress a key"
  83. 1570 sb$="          [157][157][157][157][157][157][157][157][157][157][157]         [157][157][157][157][157][157][157][157][157]"
  84. 1580 sb$=sb$+"         [157][157][157][157][157][157][157][157][157]        [157][157][157][157][157][157][157][157]           "
  85. 1590 l$="[199]etting[157][157][157][157][157][157][157][157][157]next set of[157][157][157][157][157][157][157][157][157][157]questions!"
  86. 1600 l$=l$+"[157][157][157][157][157][157][157][157][157][157][157][158][208]lease wait"
  87. 1610 lb$="       [157][157][157][157][157][157][157][157][157]           [157][157][157][157][157][157][157][157][157][157]          "
  88. 1620 lb$=lb$+"[157][157][157][157][157][157][157][157][157][157][157]           "
  89. 1630 :
  90. 1640 ts$="[212])urn or go[157][157][157][157][157][157][157][157][157][157][157][211])traight?"
  91. 1650 tb$="           [157][157][157][157][157][157][157][157][157][157][157]          "
  92. 1660 :
  93. 1670 w$="[215]hich way?[157][157][157][157][157][157]i[146][157][221][157][157][157]j[146][192][219][192]k[146][157][157][157][221][157]m[146]"
  94. 1680 b$="          [157][157][157][157][157][157] [157] [157][157][157]     [157][157][157] [157] "
  95. 1690 forqn=1to4:print"[145][156]         [204]oading file";qn;"[157] out of 4":gosub3370:next
  96. 1700 :
  97. 1710 print"[145][158]      [200]ow many players? (2, 3, or 4)"
  98. 1720 poke198,.
  99. 1730 geta$:ifa$<"2"ora$>"4"then1730
  100. 1740 mp=val(a$)
  101. 1742 print"[145]    [211]how answer after miss? ([217] or [206])"
  102. 1743 poke198,.:ha=.
  103. 1744 geta$:ifa$<>"y"anda$<>"n"then1744
  104. 1745 ifa$="y"thenha=1
  105. 1750 print "[147][154][176][192][178][192][178][192][178][178][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][178][178][192][174]"
  106. 1760 print"[221]*[154][221][158][255][154][221][255][154][171][255][154][179][255][154][221][255][154][221]*[154][221][255][154][221][255][154][221][158][255][154][221][255][154][171][255][154][179]*[154][221]"
  107. 1770 print "[171][192][219][192][177][192][177][177][177][192][177][192][219][192][219][192][177][192][177][192][177][192][177][177][219][192][179]"
  108. 1780 print "[221][255][154][221][159][208]layer 1 [221][158][255][154][221][159][208]layer 2 [221][255][154][221]"
  109. 1790 print "[171][178][179]         [171][178][179]         [171][192][179]"
  110. 1800 print "[171][255][154][179]         [154][171][255][154][179]         [221][255][154][221]"
  111. 1810 print "[171][177][179]         [171][177][179]         [171][178][179]"
  112. 1820 print "[221][158][255][154][221]         [221][255][154][221]         [171][255][154][179]"
  113. 1830 print "[171][192][179]       [176][192][177][192][177][192][174]       [171][177][179]"
  114. 1840 print "[221]*[154][221]       [221][155][194]egin[154][221]       [221]*[154][221]"
  115. 1850 print "[171][178][219][192][178][192][178][192][178][192][179] [176][192][174] [171][192][178][178][178][192][178][192][219][192][179]"
  116. 1860 print "[171][255][154][179][158][255][154][221][255][154][221][158][255][154][221][255][154][221] [221][155]&[154][221] [221][255][154][171][255][154][179][255][154][221][158][255][154][221][255][154][221]"
  117. 1870 print "[171][177][219][192][177][192][177][192][177][192][179] [173][192][189] [171][192][177][177][177][192][177][